→ See LISP.MIC for instructions on building RUTGERS/UCI LISP.

(DEFPROP TEMPDSKIN
 (LAMBDA (L)
  (PROG (X Y)
	(SETQ X (INC (EVAL (CONS 'INPUT (CONS (GENSYM) L))) NIL))
	(SETQ Y (ERRSET (PROG NIL L (PRINT (EVAL (READ))) (GO L))))
	(INC X T)
	(COND [(EQ Y '$EOF$) (RETURN L)] [T (ERR Y)]) ))
 FEXPR)

(MODCHR 100Q (MODCHR 47Q NIL))		→ Redefine the old @ as '
(HGHCOR 27000Q)				→ Space for shared code
(SETQ OLDBPORG BPORG)
(SETQ OLDBPEND BPEND)
(SETQ BPORG (HGHORG NIL))
(SETQ BPEND (HGHEND))
(NOUUO NIL)				→ Since can't NOCALL LAP
(TEMPDSKIN DSK: LAP)
(SETQ NOCALL T)
(TEMPDSKIN DSK: (LISP.LAP) (PP.LAP) (ERRORX.LAP) (BREAK.LAP) (EDIT.LAP))
(HGHORG BPORG)
(SETQ BPORG OLDBPORG)
(SETQ BPEND OLDBPEND)
(HGHCOR NIL)
(NOUUO T)
(SETQ NOCALL NIL)
(LINELENGTH 72.)
(SETQ DSKLENGTH 80.)
(*RSET T)				→ Turn on error package
(GCGAG NIL)				→ No GC messages
(INITPROMPT 52Q)			→ * is prompt char
(DUMPATOMS)				→ Creates REMOB.LSP
(SETQ BASE (SETQ IBASE 10.))		→ Decimal base
(SETQ *NOPOINT T)			→ No points for TTY
(SETQ *NOPOINTDSK NIL)			→ Points for DSKOUT
(SETQ *RAISE (SETQ *RAISEDSK NIL))	→ No raising
(SETQ MACROEXPANSION T)			→ Save macro expansions
(CSYM G0000)				→ Reset GENSYM
(INITFL (LISP.INI))			→ Instead of INIT.LSP
(INITFN '(LAMBDA NIL
	  (GC)
	  (SYSCLR)
	  (INITFN '(LAMBDA NIL
		    (MSG T "RUTGERS/UCI LISP - 3/9/78" T)
		    (ERRSET (TYPE LSP: (LISP.MSG)) NIL)
		    (PROG (DSKIN) (ERRSET (DSKIN LSP: (AUTOLD.LSP)) NIL))
		    (EXCISE)
		    (SETQ %%TIME (TIME))
		    (SETQ %%DTIME (DTIME))
		    (SETQ %%GCTIME (GCTIME))
		    (SETQ %%SPEAK (SPEAK))
		    (INITFN NIL) )) ))
(REMOB BLD TEMPDSKIN OLDBPORG OLDBPEND G0000 AUTOLD)
(PROGN (INC NIL T) (OUTC NIL T) (ERR NIL))